﻿Imports SISSAT.BusinessLayer.Services

Namespace Views
    Public Class CoursePresenter

        Private Property View As ICourseView
        Private Property Service As ICourseService

        Public Sub New(view As ICourseView)
            Service = New CourseService
            Me.View = view
            AddHandler Me.View.OnInitialization, AddressOf OnInitialization
        End Sub

        Private Sub OnInitialization()
            Me.View.RepeaterDataSource = From entity In Service.ReadAll()
        End Sub

    End Class
End Namespace

